class SIMPLE_NOTEPAD_1

insert
	IUP_INTERFACE

create {ANY}
   make

feature {ANY}
	
	make
      local
			i: STRING
			gui: IUP
			ml: IUP_MULTILINE
			v: IUP_VBOX
			w: IUP_DIALOG
		do
			gui := iup_open
			
			-- Create multiline
			create ml.multiline
			ml.set_expand("YES")
			
			-- Put the multiline inside a vertical box.
	      create v.vbox({ARRAY[IUP_WIDGET] 1, << ml >>})
			
			-- Create the window.
	      create w.dialog(v)
			w.set_title("Simple Notepad")
			w.set_predefined_size("QUARTER", "QUARTER")
			
	      i := w.show_predefined_xy("IUP_CENTER", "IUP_CENTER")
			w.set_user_size(0, 0)
			
         gui.main_loop
			gui.close
		end
	
end
